home *** CD-ROM | disk | FTP | other *** search
- /*
- * Get_Filesys.c
- *
- * Example of examining the FileSysRes list
- *
- * Compile with SAS C 5.10 lc -b1 -cfistq -v -y -L
- *
- * Run from CLI only
- */
-
- #include <exec/types.h>
- #include <exec/memory.h>
- #include <dos/dos.h>
- #include <resources/filesysres.h>
-
- #include <clib/exec_protos.h>
-
- #include <stdio.h>
-
- #ifdef LATTICE
- int CXBRK(void) { return(0); } /* Disable SAS CTRL/C handling */
- int chkabort(void) { return(0); } /* really */
- #endif
-
- struct FileSysResource *FileSysResBase = NULL;
-
- void main(int argc, char **argv)
- {
-
- struct FileSysEntry *fse;
- int x;
-
- /* NOTE - you should actually be in a Forbid while accessing any
- * system list for which no other method of arbitration is available.
- * However, for this example we will be printing the information
- * (which would break a Forbid anyway) so we won't Forbid.
- * In real life, you should Forbid, copy the information you need,
- * Permit, then print the info.
- */
- if (!(FileSysResBase = (struct FileSysResource *)OpenResource(FSRNAME)))
- printf("Cannot open %s\n",FSRNAME);
- else
- {
- for ( fse = (struct FileSysEntry *)FileSysResBase->fsr_FileSysEntries.lh_Head;
- fse->fse_Node.ln_Succ;
- fse = (struct FileSysEntry *)fse->fse_Node.ln_Succ)
- {
- printf("Found filesystem creator: %s\n",fse->fse_Node.ln_Name);
-
- printf(" DosType: ");
- for (x=24; x>=8; x-=8)
- putchar((fse->fse_DosType >> x) & 0xFF);
-
- putchar((fse->fse_DosType & 0xFF) + 0x30);
-
- printf("\n Version: %d",(fse->fse_Version >> 16));
- printf(".%ld\n\n",(fse->fse_Version & 0xFFFF));
- }
- }
- }
-